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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USERS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USERS Group, in con- 
nection therewith. 



0j 



1620 

Correction 



11. 0,042 
April 6, 1965 



The Source and Object decks for this program 
have been replaced. Attached are the listings 
reflecting the change in statement 208 and 
the addition of statement 4l8. 



C NIM JOSEPH GREEffc , t/3l/&* 

C HARVARD SCHOOL OF PUBLIC HgftLTH ? 

C TYPE AS A TWO DIGIT NUMBER THE ROW AND THE NUMBER -OF. COUNTERS 

C SWITCH 2 ON, 1620 WINS 3 ON, 1620 STARTS 4 ON , HUMAN RETr^ES 

DIMENSION IROW (4), ICOL (3), MAT (4,3) V> 
6 89 I R0W( 1 ) - 1 

IR0W(2J - 3 

I ROW ( 3 ) = 5 

IR0W(4) = 7 

I R = 

ISUM=0 

DO 305 1=1 ,4 
305 MAT ( 1*3) = 1 

MAT11»1)*0 , 1 

MAT(1,2)=0 

MAT(3,2)=0 

MAT(2,1)=0 

MAT(2,2)~-i 

MAT(4,2}=1 

MAT<4,1)*1 

MAT(3,1)=1 

PRINT 246 
246 FORMAT (///5HJOUEZ) 

PAUSE 
407 JT s 1 

TP * 1 

IF (SENSE SWITCH 3) 402,83 
83 ACCEPT 2, IR, ISUM 

IF (SENSE SWITCH 2) 225,617 ~ 
617 IF (IR-4) 502*502,503 (Jj 
502 IF(IR) 503,503,504 

504 I F { T ROW ( I R ) - t SUM ) 503*505*505 

505 IF (ISUM) 503,503,506 
5H3 PRINT 1505 

1505 FORMAT (20X , 7HC0MMENT ) 
GO TO 83 
5 06 ICOL(l) =0 
IC0L(2) « 
IC0L(3) = 

IF ( SENSE SWITCH 4) 83,409 

2 FORMAT (11,11) 
409 KT ~ 1 

61 IF (IROW (IR) -1) 204,205,51 

205 IP - IP - 1 
2 04 JT = JT - 1 

51 IROW (IR) = I ROW (IR) - ISUM 
IF (IROW (IR) - 1) 206,207,210 
207 IP = IP + I 

206 JT = JT + 1 

210 M = I ROW ( IR) 4-1 

GO TO (3,3,3,3,4,4,4,4), M 

3 MAT ( I R » 1 ) = 
GO TO 5 

4 MAT ( IR,1 ) = 1 

5 GO T0(6,6,7,7,6,6,7,7 ) , M 

6 MAT ( IR,2) = V 

GO TO 8 

7 MAT ( I R , 2 ) = 1 

8 GO TO (9,10*9,10,9,10,9,10), M 

9 MAT ( IR ,3 ) - 



o 



GO TO 11 .1 

10 MAT ( I R » 3 ) * 1 * 1 % 

11 GO TO ( 12,13) , KT 

12 T A = 1 

208 IF ( JT-3) 417,211,418 , 

IF (10 * JT +IP ~ 41) 415, 416*4-15 

416 PRINT 425 

425 FORMAT (5HCLUNK) 

GO TO 82 
415 DO 91 J*l ,4 

I A = I A + MAT ( J ,.1 ) 

IB - IB + MAT (J, 2) , ' 

°1 IC = IC + MAT ( J ,3 ) 

GO TO ( 101 , 25 , 101 ) , I A 

25 ICOL (1) = 1 

101 GO TO (102,26,102,26), IB 

26 I C01 (2 ) = 1 

102 GO TO (30,21*30, 21, 30J ,K 
?1 TOOL (3) = 1 

30 IFUCOL(l)) 31,32,31 

31 IF (MAT(4,1)) 34,33,34 
34 I R - 4 

GO TO 45 

3 3 IR ■ P 3 

GO TO 45 

32 IFUCOU 2)) 437,37,437 

37 IF ( ICOL(3) ) 36,402,36 
437 IF(MAT(4,2)) 34,38,34 

402 I SUM =1 

IF (IR0W(4)) 403*403,404 

403 IF (IROW(3)) 405,405,406 
4 n 4 TP = 4 

GO TO 501 
40 6 IR =* ^ 

GO TO 501 
405 I R = 2 
501 KT = 2 

GO TO 61 

38 IF (MAT (3,2)) 33,39, 33 . 

3° I R = 2 

GO TO 45 
36 TF(MAT(4,3)) 34,40,34 
40 T F( MAT ( 3 ,3 ) ) 33 ,41 , 33 

4 1 TF (MAT (2,3) ) 3 9,42,3 9 
4 2 ! R = 1 

4 5 ISUM= ICOL( 1 )*4-M ICOL ( 2)* (4*MAT( I~,2)~2)K( I COL ( 3 ) * ( 2*MAT { IR,3 )-l ) ) 
KT = 2 
GO TO 61 

13 PRINT 54, IR, I SUM 
54 FORMAT ( 12, 2X, 12 ) 

GO TO 83 

211 IF ( I ROW ( 1 ) - 1 ) 213,213,214 
213 IF (I ROW ( 2 ) - 1 ) 215,215,216 
2.15 IF (IROW (3) - 1) 217,217,218 

2 1 4 I P = 1 

GO TO 219 
216 I R = 2 

G TO 219 



mmmmmmmmmm 



218 I R = 3 | 
GO TO 219 f 

217 IR = 4 

219 IN = IP + 1 

GO TO (221 , 220 ,221 * 220), IN 

220 ISUM * I ROW (IR) 
I ROW (IR) * 
GO TO 

221 ISUM = I ROW ( IR ) -1 
I ROW ( I R ) = 1 

IP = IP + 1 

224 PRINT 54, |R* l$i)tt 

IF (IP ~ 1) 22S>225,227 - 

225 PRINT 231 

231 FORMAT ( 4HHSPH ) 

GO TO 82 
227 ACCEPT 2, IR, I SUM 

TFCSFNSFSWITCH 2) 225*621 
621 IF (SENSE SWITCH 4) 227*408 
408 IFUR-4) 63X»63n639 
63 1 IF ( IR ) 639,639 ,632 

632 IF( ISUM-1 ) .639,633,639 

633 IF (IROW(IR)-l) 639,634,639 
63<? PRINT 1505 

GO TO 227 

634 tROW(IR) *0 

683 IF (IROW (1)) 241,241,242 

241 IF (IROW (2)) 243,243,244 

242 IR = 1 
GO TO 250 

244 IR * 2 
GO TO 250 

243 IR = 3 
250 ISUM=1 

PRINT 54, IR, ISUM 

PRINT 231 
82 PAUSE 

GO TO 689 
418 GO TO (417,683 ,417,417) , IP 
END 
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PROGRAM ABSTRACT 



1. 



1. TITLE (If subroutine, state in Title): N I M 

Sub,-;. Class. 11.0 

2. Author; Organization: Joseph Green. Data Processing Center. Department of 

•Rlost.a t-.lat-.lf.s , Harvard School of Puhlln Health 

Date: 3/1/64 Users Group Membership Code: l^TT 

3. Direct Inquiries to Name: Joseph Green. Data Processing Center. Harvard 

School of Public Health. 1 Shattuck St.. Boston Phone: re 4 rfflO. Fx.SQg 

4. Description/Purpose: (5. Method; 6. Restriction/ Range; When Applicable) 

This demonstration program pits the computer against a 

human In a game far more Interesting than Tic-Tac-Toe 

or Blackjack. , 



7. Specifications (Check or fill in appropriate spaces): 

a. Storage used by program: About 16 K 

b. Equipment required by program: 

Card System y ; Magnetic Tape System ; No. of Tapes ; 

Paper Tape System j Disk File System ; No. of Packs ; 

TNS, TNF, MF ; Auto divide ; Indirect addressing ;Floating point hardware 

Other (specify) 

Can program be used on lesser Machine? No Specify which requirements can be 

easily removed 

c. Programming type (Check appropriate spaces): 

Fortran without Format ; Fortran with Format X » 

Fortran II ; Mainline, Complete X ; Subroutine or function subprogram(S or F) ; 

Is the program a library (ie, SPS) function to the Fortran system checked? ; 

SPS ; SPS - 1620/1710 ; 

Mainline, Complete ; Macro ; Subroutine ; 

Other programming language: ; Give details 

d. Language used in the writeup: Fortran with Format Version 2 

8. Additional Remarks: 
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DECK KEY 

Source deck 
Object deck 



3. 



Program Description 



N I M 



Joseph Green August 1, 1964 

Data Processing Center 
Department of Biostatistics 
Harvard School of Public Health 

1 Shattuck Street, Boston, Mass. RE 43300, Ext. 592 

Users Group Code 1337 



This program was written in 1620 Fortran with Format and 
compiled on a 40K machine with automatic divide and in- 
direct addressing and without floating point hardware or 
TNS, TNF, MF. But the compiler was set to compile the 
program and symbol table within 20 K. There are no 
"divide" instructions and no relocatable subroutines are 
used. Fortran with Format does not assume indirect 
addressing. The object program has been altered slightly 
to shift the typewriter into numeric mode during execution 
of the "accept" statements. 



The game of NIM, which gained prominence in the movie 
"Last Year at Marienbad", is played as follows. There 
are four rows of counters initially arranged.' 



4 


0*0*0 



row 1 
row 2 
row 3 



Joseph Green - 2 



Two players alternate moves, each player taking one or 
more than one counter from a single row. The pL^'/sr 
obliged to remove the last counter loses. A typical game 
would be: 1) Player One removes all the counters in the 
fourth row, 2) Player Two removes three of the five counters 
in the third row, 3) Player One removes the three counters 
in the second row, 4) Player Two removes the two remaining 
counters in the third rov;, and, since there is but one 
counter left, Player Two has won. The above is the third 
game on the sample sheet. 

The computer is prepared to move first or second, depending 
on the setting of sense switch 3- Moves are entered at the 
typewriter as two digit numbers; the first digit; is the num- 
ber of the row, and the second digit is the number of counters 
to be removed from that row. The computer checks the validity 
of each of its opponent's moves; if the move is not per- 
missable, the computer asks in French "comment" and branches 
to reaccept the move. If the player wishes to correct a 
typing error, he must turn switch 4 on before pressing R-S; 
the computer then branches to reaccept the move. If the 
player wishes to resign a game in the middle, he must turn 
switch 2 on and press R-S. 

When there is but one counter remaining, or when the opponent 
has resigned, the computer announces its victory by typing 
"HSPH" (Harvard School of Public Health). If defeated, it 
emits a metallic gasp. At the end of the game, the computer 
halts before branching to the beginning. The accompanying 
flow chart shows the initial and final steps of the program. 



Type ENTER DATA 



HALT 



type JOUEZ 



( HALT ) 
Yes No 




Switch 3 
on 



1620 
makes 
1st move 



Human 
makes 
1st move 



type HSPH 







( HALT y 



689 



305 



246 
407 

83 

617 
502 
504 

'""505 
503 
1505 

506 



2 

-409 
61 
205 
204 
51 



NIM JOSEPH GREEN 7/31/64 

HARVARD SCHOOL OF PUBLIC HEALTH 

TYPE AS A TWO DIGIT NUMBER THE ROW AND THE NUMBER OF COUNTERS 

SWITCH 2 ON. 1620 WINS 3 ON, 1620 STARTS 4 ON, HUMAN RETYPES 

DIMENSION IROW (4), ICOL (3), MAT (4,3) 

IROW(l) =1 

IROWf 2) =3 

I ROW ( 3 ) =5 

I ROW! 4) = 7 

IR = 

ISUM=0 

DO 305 1 = 1,4 . " 

MAT (1,3) * 1 

MAT < 1 » 1 ) =0 

MAT(1»2)=0 

MAT(3,2)=0 

MAT(2,1)=0 

MAT(2»2)=1 

MAT{4,2)=1 

MAT(4, 1 )*1 

MAT(3,1)=1 

PRINT 246 

FORMAT ( ///5HJOUEZ ) 

PAUSE 

JT = I : 

'■IP = ■ 1 

IF (SENSE SWITCH 3) 402,83 

ACCEPT 2, IR, ISUM 

IF (SENSE SWITCH 2) 225,617 

IF ( IR-4) 502,502,503 

IF ( If? ) 503 ,503 ,504 

IF (I ROW ( IRJ-ISUM) 503,505,505 

IF ( I SUM ) 503,503,506 

PRINT1505 

FORMAT (20X , 7HCOMMENT ) 
GO TO 83 .. 
ICOL(l) * 
ICOL (2) =0 
TCOL(3) = 

IF (SENSE SWITCH 4) 83,409 
FORMAT (11,11) 
fCT * 1 

IF (IROW < IR) -1 ) 204,205,51 . '' ' 

IP = IP - 1 



JT = JT - 1 
IROW (IR) = I ROW 
IF ( IROW ( IR) - 1 ) 
207 I P * 
206 JT = 
210 M = 



(IR) - I SUM 
206,207,210 



IP + I 
JT + 1 
I ROW ( IR) +1 
GO- TO (3,3,3,3,4,4,4,4), M 
MAT (IR,1) = 
GO TO 5 

MAT (IR.l) = 1 



2 

003 
0O5 



10 
11 
T2 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 

028 
029 
030 
031 
032 
033 
34 
035 
36 
37 
38 
39 
040 
41 
42 
043 
44 
45 
046 
047 
048 
49 
050 
051 
52 
53 
54 



c 



5 60 T0(6, 6,7, 7,6, 6.7, 7 ) , M 

6 MAT MR»2> = : 

GO TO 8 

7 MAT ( IR,2) = 1 

8 GO TO (9,10,9,10,9,10,9,10), M 

9 MAT <1R»3) « 
GO TO 11 

10 MAT { IR,3) = 1 

11 GO TO (12,13), KT 

12 T A = 1 

IF (JT-?) 417, ?n, 417 
417 1B=1 

IC = 1 . .. 

IF (10 * JT +IP - 41) 415,416,415 

416 PRINT 425 
425 FORMAT (5HCLUNK.) 



055 
56 
57 
58 

059 
60 
61 
62 

063 
64 

065 
66 
67 

068 
69 
70 



' KT = 2 
GO TO 61 
13 PRINT 54 
54 FORMAT 



IR, I SUM 
( I2,2X,I2) 





GO 


TO 82 




7^ 


415 


DO 


91 J=l»4 




72 




IA 


= IA + MAT ( J i 1 ) 


073 




IB 


= IB + MAT ( J , 2 ) 


U' H 


91 


IC 


= IC + MAT(J,3) 






GO 


TO ( 101 , 25 , 101 ) , I A 


076 


2 5 


I COL (1) 


1 


077 


101 


GO 


TO (102,26 


,102,26) » IB 


078 


26 


TrOL (2) = 


1 


7<> 


102 


GO 


TO (30,21, 


30,21,30) ,IC , 


080 


21 


ICOL (3) 


1 


081 


30 


IFUCOL(l)) 31,32,31 


082 


31 


IF 


( MAT (4, 1 ) ) 


34,33,34 


083 


34 


IR 


= 4 




84 




GO 


TO 45 




85 


3.3 


IR 


= 3 




86 




GO 


TO 45 




87 


32 


IF(ICOL(2)) 437,37,437 


088 


37 


IF 


( ICOL ( 3) ) 


36,402,36 


089 


437 


IF(MAT(4,2) ) 


34,38,34 


090 


402 


T SU M = 1 




91 




IF 


< 1R0WI4) ) 


403,403,404 


092 


403 


IF 


( IROW(3) ) 


405,405,406 


093 


404 


I" 


= 4 




94 




GO 


TO 501 




95 


406 


IR 


= • 3 




96 




GO 


TO 501 




97 


405 


IR 


= 2 




98 


501 


KT 


= 2 




99 




GO 


TO 61 




100 


38 


IF 


( MAT ( 3,2 ) ) 


33,39,33 


101 


39 


TR 


="■' 2 




102 




GO 


TO 45 




103 


36 


IF (MAT ( 4 .,3 ) ) 


34,40,34 


104 


40 


I F ( MAT (3,3) ! 


33,41,33 


105 


41 


IF(MAT(2,3) ) 


39,42,39 


106 


42 


IP 






107 


45 


I SUM* I COM 1 >*4+( ICOL(2)*(4*MAT( IR,2)-2) ) + ( I COL (3) *<2*MAT( IR,3)-l) ) 


108 





GO 


TO 83 












211 


IF 


( I ROW 


( 1.) 


-11 


213 


,213, 


214 


213 


IF 


(I ROW 


(21 


- 1) 


215 


,215* 


216 


215 


IF 


( I ROW 


(3 J 


-I) 


217 


,217, 


218 


214 


IR 

GO 


= 1 
TO 219 












216 


TP 
GO 


= 2 
TO 219 












218 


tR 

60 


e 3 
TO 219 












217 


IR 


= 4 












219 


IN 


= IP + 


1 












GO 


TO (221,220 


,221., 


220) 


, IN 




220 


I SUM - 


I ROW, 


< IR ) 









I ROW (IR) = 

GO TO 224 
221 I SUM = I ROW (IR) -1 

I ROW ( IR) = 1 

IP = IP + 1 
224 PRINT 54, IR, ISUM 

IF UP - 1) 225,225,227 
275 PRINT 231 
231 FORMAT (4HHSPH) 

GO TO 82 
227 ACCEPT 2, IP, ISUM 

IFtSENSE SWITCH 2) 225,621 
621 IF (SENSE SWITCH 4) 227,408 
408 IF(!R-4) 631,631,639 
6-n TF(IR) 639,639,632 

632 IF(ISUM-l) 639,633,639 

633 IF (IROW(IR)-l) 639,634,639 
639 PRINT 1505 

GO TO 227 • 

634 IROW(IR) =0 

6S3 IF (TROW (1)1 241,241,242 

241 IF (IROW (2)) 243,243,244 

242 IR = 1 
GO TO 250 

244 IR * 2 .. . . 
GO TO 250 

243 IR = 3 

2 50 I SUM = 1 

PRINT 54, IR, I SUM 
PRINT 231 
82 PAUSE 

GO TO 689 
FND 



109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

322 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

1.4 3 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 
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9. 



Modification of the Object Program 



During compilation, statements 83 and 227 were both 
followed by Two Pause instructions. The five 
resulting machine language instructions (BT,BTM,BTM, 
H,H) were replaced by the machine language equivalent 
of 



RCTY 

RNTY * + 10 

TD IR, * - 2 

TD I SUM, * - 13 
NOP 



IR is located at 19639 
ISUM is located at 19619 



JOUEZ 

1 1 RS 

? IRS 
3 1 

->?R-S 
3 1 

HSPH 



JOUEZ 

k 1 
!+?R5 



< — - \C2C 

fn d ve,<L 

COMMENT „ 



JOUEZ 

7 7. 

HSPH 



o 



Operating Instructions 



Load program t deck 2 ) 

At "ENTER DATA" press START 

The machine types "JOUEZ." Set Switch 3 and 
press START 

Wnen the typewriter shifts into numeric, type 
the desired move 

After the message of victory or defeat, the 
computer halts. To begin another game, press 
START. Go to Step 3- 

The origin of the program is 08300. 

Switch 1 is not used 

Switch 2 permits a player to resign a game 
Switch 3 determines who goes first 

Switch 4 permits a player to correct a typing error. 
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